home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / tsqed16.zip / PASCAL.QMA < prev    next >
Encoding:
Text File  |  1992-03-28  |  2.0 KB  |  53 lines
  1. *                                                All rights reserved
  2. * Compile and analyze the current Turbo Pascal file
  3. * By Prof. Timo Salmi Sat 28-March-1992
  4. *
  5. * To compile these macros apply QMAC PASCAL.MAC PASCAL.QMA /A- /B
  6. *
  7. * To compile this command macro you need (also version 2.1 will do):
  8. *  QMAC.EXE macro translator from /pc/editor/qmac215.zip
  9. * To use ALT-5 you need Borland's:
  10. *  TPC.EXE   Turbo Pascal compiler command line version
  11. *  TURBO.TPL Turbo Pascal Library file at the same directory
  12. * To use ALT-6 you need in addition TurboPower Software's:
  13. *  PSA.EXE Structure Analyst
  14. *
  15. * Before compiling the macro, edit the paths in the "Dos" command
  16. * lines to conform to where you have your files.
  17. *
  18. * To make these macros available you can e.g. first invoke the main menu
  19. * (usually F10) and select Macro: Read Macro: pascal.mac. Then you can
  20. * invoke the commands with ALT-5 and ALT-6, respectively.
  21. *
  22. * There is an annoying flaw in QEdit's CurrentFilename function. If
  23. * the path is long, the tails is truncated, and the macro won't work
  24.  
  25. * ┌──────────────────────────────────────────────┐
  26. * │ Compile the current Turbo Pascal file, ALT-5 │
  27. * └──────────────────────────────────────────────┘
  28. @5 MacroBegin
  29. *
  30. * Turbo Pascal  Version 5.0  Copyright (c) 1983,88 Borland International
  31. * Syntax: TPC [options] filename [options]
  32. *  /Exxx   EXE & TPU directory     /Uxxx   Unit directories
  33. *
  34.    Dos 'c:\turbpasc\turbo50\tpc /ur:\;c:\pasohj\tpu50 /er:\ ' CurrentFilename
  35.    Return
  36.  
  37. * ┌─────────────────────────────────────────────────┐
  38. * │ Analyze the current Turbo Pascal program, ALT-6 │
  39. * └─────────────────────────────────────────────────┘
  40. @6 MacroBegin
  41. *
  42. * Structure Analyst. Copyright (c) TurboPower Software 1985,1988. 
  43. * Usage: PSA [options] programname[.PAS]          | Version 5.00.
  44. *  /O file    Output to specified file
  45. *
  46. * Do the analysis
  47.    Dos 'c:\turbpasc\anal\psa /o r:\$analyze.rpt ' CurrentFilename
  48.    Return
  49. *
  50. * See the results
  51.    Return
  52.    EditFile "r:\$analyze.rpt" Return
  53.